home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / tssgm.vim < prev    next >
Encoding:
Text File  |  2001-05-10  |  3.2 KB  |  112 lines
  1. " Vim syntax file
  2. " Language:     TSS (Thermal Synthesizer System) Geometry
  3. " Maintainer:   Adrian Nagle, anagle@ball.com
  4. " Last Change:  2001 May 10
  5. " Filenames:    *.tssgm
  6. " URL:          http://www.naglenet.org/vim/syntax/tssgm.vim
  7. " MAIN URL:     http://www.naglenet.org/vim/
  8.  
  9.  
  10.  
  11. " For version 5.x: Clear all syntax items
  12. " For version 6.x: Quit when a syntax file was already loaded
  13. if version < 600
  14.   syntax clear
  15. elseif exists("b:current_syntax")
  16.   finish
  17. endif
  18.  
  19.  
  20.  
  21. " Ignore case
  22. syn case ignore
  23.  
  24.  
  25.  
  26. "
  27. "
  28. " Begin syntax definitions for tss geomtery file.
  29. "
  30.  
  31. " Define keywords for TSS
  32. syn keyword tssgmParam  units mirror param active sides submodel include
  33. syn keyword tssgmParam  iconductor nbeta ngamma optics material thickness color
  34. syn keyword tssgmParam  initial_temp
  35. syn keyword tssgmParam  initial_id node_ids node_add node_type
  36. syn keyword tssgmParam  gamma_boundaries gamma_add beta_boundaries
  37. syn keyword tssgmParam  p1 p2 p3 p4 p5 p6 rot1 rot2 rot3 tx ty tz
  38.  
  39. syn keyword tssgmSurfType  rectangle trapezoid disc ellipse triangle
  40. syn keyword tssgmSurfType  polygon cylinder cone sphere ellipic-cone
  41. syn keyword tssgmSurfType  ogive torus box paraboloid hyperboloid ellipsoid
  42. syn keyword tssgmSurfType  quadrilateral trapeziod
  43.  
  44. syn keyword tssgmArgs   OUT IN DOWN BOTH DOUBLE NONE SINGLE RADK CC FECC
  45. syn keyword tssgmArgs   white red blue green yellow orange violet pink
  46. syn keyword tssgmArgs   turquoise grey black
  47. syn keyword tssgmArgs   Arithmetic Boundary Heater
  48.  
  49. syn keyword tssgmDelim  assembly
  50.  
  51. syn keyword tssgmEnd    end
  52.  
  53. syn keyword tssgmUnits  cm feet meters inches
  54. syn keyword tssgmUnits  Celsius Kelvin Fahrenheit Rankine
  55.  
  56.  
  57.  
  58. " Define matches for TSS
  59. syn match  tssgmDefault     "^DEFAULT/LENGTH = \(ft\|in\|cm\|m\)"
  60. syn match  tssgmDefault     "^DEFAULT/TEMP = [CKFR]"
  61.  
  62. syn match  tssgmComment       /comment \+= \+".*"/ contains=tssParam,tssgmCommentString
  63. syn match  tssgmCommentString /".*"/ contained
  64.  
  65. syn match  tssgmSurfIdent   " \S\+\.\d\+ \=$"
  66.  
  67. syn match  tssgmString      /"[^" ]\+"/ms=s+1,me=e-1 contains=ALLBUT,tssInteger
  68.  
  69. syn match  tssgmArgs        / = [xyz],"/ms=s+3,me=e-2
  70.  
  71. syn match  tssgmInteger     "-\=\<[0-9]*\>"
  72. syn match  tssgmFloat       "-\=\<[0-9]*\.[0-9]*"
  73. syn match  tssgmScientific  "-\=\<[0-9]*\.[0-9]*E[-+]\=[0-9]\+\>"
  74.  
  75.  
  76.  
  77. " Define the default highlighting
  78. " For version 5.7 and earlier: only when not done already
  79. " For version 5.8 and later: only when an item doesn't have highlighting yet
  80. if version >= 508 || !exists("did_tssgm_syntax_inits")
  81.   if version < 508
  82.     let did_tssgm_syntax_inits = 1
  83.     command -nargs=+ HiLink hi link <args>
  84.   else
  85.     command -nargs=+ HiLink hi def link <args>
  86.   endif
  87.  
  88.   HiLink tssgmParam            Statement
  89.   HiLink tssgmSurfType         Type
  90.   HiLink tssgmArgs             Special
  91.   HiLink tssgmDelim            Typedef
  92.   HiLink tssgmEnd              Macro
  93.   HiLink tssgmUnits            Special
  94.  
  95.   HiLink tssgmDefault          SpecialComment
  96.   HiLink tssgmComment          Statement
  97.   HiLink tssgmCommentString    Comment
  98.   HiLink tssgmSurfIdent        Identifier
  99.   HiLink tssgmString           Delimiter
  100.  
  101.   HiLink tssgmInteger          Number
  102.   HiLink tssgmFloat            Float
  103.   HiLink tssgmScientific       Float
  104.  
  105.   delcommand HiLink
  106. endif
  107.  
  108.  
  109. let b:current_syntax = "tssgm"
  110.  
  111. " vim: ts=8 sw=2
  112.